home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1995 October / Amiga-CD 1995 #10.iso / weitere_demos / adm / arexx / gpfax / gpfax_starten.adm < prev   
Text File  |  1995-06-04  |  750b  |  32 lines
  1. /* $VER: GPFax_starten.adm (26.1.95)
  2.  
  3.    Startet GPFax vom ADM-Menü aus.
  4.  
  5.  
  6.    26-01-95  [CaK] -  Erste Version.
  7.  
  8.    Von Carsten Kullik.
  9.  
  10. */
  11.  
  12. /*------------------Voreinstellungen---------------------
  13.    -Q=IconMode; -S=No Serial-Device open; -W=WB-Colour
  14.    -NP=No Printer -X=Icon X-Pos.; -Y=Icon Y-Pos.
  15. --------------------------------------------------------*/
  16.  
  17. Run_FAXPrg = "Run >NIL: GPFax:GPFax -NP -Q -W -S -X0 -Y50"
  18.  
  19. /*===================Programmstart======================*/
  20.  
  21. Options Results
  22.  
  23. If ~Show("P","REXX_GPFAX") then     /*Laeuft GPFax schon?*/
  24.    do                               /*Nein, dann starten*/
  25.    Shell Command Run_FAXPrg
  26.    Warte:
  27.    If ~Show("P", "REXX_GPFAX") Then Signal Warte
  28.    end
  29.  
  30. Address "REXX_GPFAX"
  31. AutoAnswer Off
  32.